home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
gnu
/
gprof
/
gpfsrc07.zoo
/
test2.s
< prev
next >
Wrap
Text File
|
1991-07-15
|
2KB
|
143 lines
#NO_APP
gcc_compiled.:
.text
.even
.globl _call_bar_function_recr
_call_bar_function_recr:
link a6,#0
tstl LPBX0
bne LPI0
pea LPBX0
jsr ___bb_init_func
addql #4,sp
LPI0:
unlk a6
rts
.even
.globl _foo
_foo:
link a6,#0
tstl LPBX0
bne LPI1
pea LPBX0
jsr ___bb_init_func
addql #4,sp
LPI1:
LPB0:
addql #1,LPBX2+0
movel a6@(8),sp@-
jbsr _call_bar_function_recr
unlk a6
rts
.even
.globl _factorial_function
_factorial_function:
link a6,#0
movel a2,sp@-
tstl LPBX0
bne LPI2
pea LPBX0
jsr ___bb_init_func
addql #4,sp
LPI2:
LPB1:
addql #1,LPBX2+4
movel a6@(8),a2
moveq #1,d1
cmpl a2,d1
jlt L4
LPB2:
addql #1,LPBX2+8
moveq #1,d0
jra L3
L4:
LPB3:
addql #1,LPBX2+12
pea a2@(-1)
jbsr _factorial_function
movel d0,sp@-
movel a2,sp@-
jbsr ___mulsi3
L3:
movel a6@(-4),a2
unlk a6
rts
.even
.globl _main
_main:
link a6,#-4
movel d2,sp@-
tstl LPBX0
bne LPI3
pea LPBX0
jsr ___bb_init_func
addql #4,sp
LPI3:
LPB4:
addql #1,LPBX2+16
clrl a6@(-4)
cmpl #499,a6@(-4)
jgt L16
L10:
LPB5:
addql #1,LPBX2+20
pea 10:w
jbsr _factorial_function
addqw #4,sp
addql #1,a6@(-4)
cmpl #499,a6@(-4)
jle L10
L16:
LPB6:
addql #1,LPBX2+24
clrl a6@(-4)
cmpl #999,a6@(-4)
jgt L15
LPB7:
addql #1,LPBX2+28
movel a6,d2
subql #4,d2
L14:
LPB8:
addql #1,LPBX2+32
movel d2,sp@-
jbsr _foo
addqw #4,sp
addql #1,a6@(-4)
cmpl #999,a6@(-4)
jle L14
L15:
LPB9:
addql #1,LPBX2+36
moveq #0,d0
movel a6@(-8),d2
unlk a6
rts
.data
.even
LPBX0:
.long 0
.long LPBX1
.long LPBX2
.long 10
.long 0
.long LPBX3
LPBX1:
.ascii "test2.d\0"
.even
LPBX2:
.skip 40
.text
LPBX3:
.long LPB0
.long LPB1
.long LPB2
.long LPB3
.long LPB4
.long LPB5
.long LPB6
.long LPB7
.long LPB8
.long LPB9
.long LPBX3